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Abstract. During the last two decades, monads have become an indis¬ 
pensable tool for structuring functional programs with computational 
effects. In this setting, the mathematical notion of a monad is extended 
with operations that allow programmers to manipulate these effects. 

When several effects are involved, monad transformers can be used to 
build up the required monad one effect at a time. Although this seems to 
be modularity nirvana, there is a catch: in addition to the construction 
of a monad, the effect-manipulating operations need to be lifted to the 
resulting monad. The traditional approach for lifting operations is non- 
modular and ad-hoc. We solve this problem with a principled technique 
for lifting operations that makes monad transformers truly modular. 

1 Introduction 

Since monads were introduced by Moggi [13,14] to model computational effects, 
they have proven to be extremely useful to structure functional programs [20,19, 
9]. Monads are usually accompanied with operations that manipulate the effects 
they model. For example, an exception monad may come with operations for 
throwing an exception and for handling it, and a state monad may come with 
operations for reading and updating the state. Consequently, the structure one 
is really working with is a monad and a set of operations associated to it. 

In order to combine computational effects, one must combine monads. There 
are many ways of combining monads: distributive laws [2], coproduct of mon¬ 
ads [11], and monad transformers [10,15,3]. However, these technologies fall 
short in combining monads with operations, as they only provide means to com¬ 
bine monads. Liang et al. [10] identified this problem more than a decade ago 
and proposed a workaround, which is not modular. In fact, they have to lift 
operations associated to a monad through a monad transformer in an ad-hoc 
manner, and therefore the number of liftings of operation grows like the product 
of the number of monad transformers and operations involved (see Section 3.) 

More recently, Plotkin et al. [17,7] have proposed to look at monads induced 
by algebraic theories, and to address the problem of combining monads (and 
associated operations) as a problem of combining algebraic theories. Their ap¬ 
proach works very smoothly, but can only deal with monads induced by algebraic 
theories (and lifting is limited to algebraic operations). 

Of all the techniques for combining monads, monad transformers are the 
most popular among functional programmers, as they are easy to implement 
and capture all the desired combinations for standard effects 1 . We show that for 
1 We take as standard the monads and operations described in [10]. 



monad transformers with a functorial behaviour there is a uniform definition of 
lifting for a class of operations, which includes (after some minor repackaging) 
all the operations described in [10]. The main contributions of this article are: 

— Identifying a class of operations associated to a monad, called algebraic Id- 
operations, that are easy to lift along any monad morphism (Section 4). 

— Showing that all 17-operations for a monad can be lifted (through any func¬ 
torial monad transformer) by interpreting them as algebraic 17-operations 
for a related monad (Section 5). 

— Comparing our uniform lifting to more ad-hoc liftings found in the literature 
or in Haskell’s libraries. This has revealed a mismatch with one definition in 
Haskell’s monad transformer library (as discussed in Section 4). 

Our approach extends both the traditional monad transformer approach [10] 
with the addition of uniform liftings, and the algebraic approach [7], since alge¬ 
braic operations are a special case of algebraic .^-operations. 

Remark 1. This article is aimed at researchers and programmers interested in 
using monads to structure functional programs with computational effects. For¬ 
mally we work with system Flo. In examples and remarks we may freely use 
extensions of Flo or idioms that are customary in functional languages. 

Much of the terminology we introduce is borrowed from Category Theory. 
Usually, there is not an exact correspondence between category-theoretic no¬ 
tions and their formalization in a calculus. For instance, monads expressible in 
the simple typed lambda calculus correspond to strong monads in a CCC [14]. 
In what follows, when we say monad we mean expressible monad in Flo (and 
similarly for other category-theoretic notions). 

2 Preliminaries 

We work with system Flo and its equational theory induced by /^-equiva¬ 
lence (for details, see [1,5]). One may replace Flo with a weaker system, like 
HML [6] (which distinguishes types from type schemas), or a stronger system, 
like CC [4]. To fix the notation, we recall the syntax of Flo 

kinds k ::= * | k —> k 

type constuctors U ::= X \ U -* U | VX: k. U \ AX : k. U \ U U 

terms e ::= x \ Ax: X. e \ AX: k. e \ e U 

We write eu for e U (polymorphic instantiation) and we often write definitions 
(jx(x : A) = t when we mean g = \/X \x: A. t. We often write term application 

using a tuple, that is, we write t(z\ . z n ) for t z\ ... z n . 

Following [18] we express in the setting of Flo several category-theoretic 
notions, such as functors, natural transformations, monads, monad transformers. 
Familiarity with these notions is not needed to understand the rest of the paper, 
but interested readers may want to look at [16,3]. 



Definition 2 (Functor [18]). The set Functor of functors consists of pairs 
F = (F, map F ), where F: * —» * is a type constructor and 

map F : Map(F) = VX, Y (X —>Y) —> FX —* FY 
is a term such that for all f: A—>B and g: B^C 

map^ A \d A = idpvt (1) 

map f a c {9 ■ f) = map| )C g • map^ B / (2) 

where, id = AX \x:X. x and g ■ f is function composition Xx : A.g(f x). 
The composite functor F oG is the pair (F ■ G, map) where 

ma P a,b U- A ^ B ) = mapGA.Gsfmap % B f). 

Definition 3 (Natural transformation). Given two functors F and G, the 
set Nat(F, G ) of natural transformations from F to G consists of terms r: F A 
G = \/X: *. FX^GX, such that for all f: A^B 

mapA.s f -t a = t b - map^ >B / (3) 

The term l = A(M: * —*■ *)(X: *). A m: MX. m is the identity natural trans¬ 
formation, got = AX: *. ax • tx is composition of natural transformations, and 
E(t : F A G ): E ■ F -Aj§ : - G = AX: *. map § x ,gx( t x) is the application of a 
functor E to a natural transformation r from F to G. 

Definition 4 (Monad). The set Monad of monads consists of triples M = 
(M, ret M , bind M ), where M: * —> * is a type constructor and 

ret M : Ret(M) = VX: *. X -► MX 
bind M : Bind(M) = VX, Y: *. MX (X -► MY) MY 
are terms such that for every a: A, f:A—> MB, to: MA and g: B —* MG: 

bind^s(ret" «»/) = f a ( 4 ) 

bmd^A ( m ! ret A ) = m (5) 

bin d^ c (m,Xa:A. bind B,c(f a i9)) = bind^ c .(bind^ B (m,/), g) (6) 

Every monad M = (M, ret M , bind M ) has an underlying functor (M, map M ), 
denoted by M, where map]^ B (/: A —» B) ( m:MA ) = bind^ B (m, ret^f • /). 

Example 5 (State Monad). The monad for modelling side-effects on a state of 
type S' is S = (S, ret s , bind s ), where S (X: *) = S—>X x S and 

retjj (x: X): SX = A s:S. (x,s) 

bind|- F (m: S X, f: X —>SY): SY = Xs:S. let {a,s')=ms in fas' 

Intuitively, a computation SX takes an initial state and produces a value of type 
X and a final state, ret s does not change the state, and bind s threads the state. 
A simple calculation shows that equations 4-6 hold. □ 



Example 6 (Continuation Monad). The monad for modelling continuations of 
result type R is C = (C, ret c , bind c ), where C (X: *) = (X—>R)—>R and 

ret| (x:X): CX = Xk:X^R. kx 
bind^ F (m: CX, f: X —>CY): CY = Xk:Y^R. m( Xx:X. fxk) 

Intuitively, CX is a computation that given a continuation X —> R returns a 
result in R, ret c simply runs a continuation, and bind c (m,/) runs to with a 
continuation constructed by running / in the current continuation. □ 

Definition 7 (Monad Morphism). Given two monads M and N, the set 
MM(M, N ) of monad morphisms from M to N consists of terms 
such that for every a: A, to: MA and f: A —> MB 

ret a a = ^(ret fa) (7) 

6*(bind % B (m,f)) = bind % B (Um,£ B ■ f) (8) 

Remark 8. A simple consequence of equations 7-8 is that a monad morphism is 
also a natural transformation between the underlying functors. 

In order to combine effects, instead of writing a monad from scratch, one can 
add more effects to a pre-existing monad using monad transformers. 

Definition 9 (Monad Transformer). The set MT of monad transformers 
consists of tuples T = (T, ret T , bind T , lift T ), whereT: (*—>*)—►(*—►*) and 

ret T : MM: * -» *. Ret(M) -» Bind(M) Ret(TAf) 

bind T : VM:* ^ *. Ret(M) -► Bind(M) Bind (TM) 

lift T : MM :*—»*. Ret(M) Bind(M) -> VX: *. MX^TMX 

are terms such that for every monad M, the tuple TM = (TM, ret^, bind^.) is 
a monad and lift^ is a monad morphism from M to TM, where 

ret^ = ret^f(ret M , bind M ), bind^- = bind^(ret M , bind M ), 
lif4 = lift^(ret M ,bind M ). 

From now on we will drop type information of kind * from examples, in order 
to make them more readable. 

Example 10. The state monad transformer S = (S , ret 5 , bind 5 , lift 5 ) adds side- 
effects to an existing monad, where S (M: *—>*)(X: *) = S->-M(X x S), and 

ret^(x: X ): SMX = As. ret M (x, s) 
bind %(t : SMX, f : X^SMY ): SMY = As. bind M (f s, X(x, s'), f X s') 
Wh^im-.MX ): SMX = As. bind M (m, Ax. ret M (x, s)) 

A simple calculation shows that equations 4-6 hold for SM and equations 7-8 
hold for lift^, whenever equations 4-6 hold for M. □ 




Example 11. The exception monad transformer X = (X. ret A ’. bind 1 , lift*) adds 
exceptions to an existing monad, where X ( M: * ^ *)(X: *) = M(Z + X) (here 
Z is the type of exceptions), and 

ret^(x: X ): XMX = ret M (inra;) 
b\n6^(t:XMX,f:X^XMY):XMY = 

bind M (f, Ac. case c of | inU => ret M (inU) 

| inr x => fx ) 

lift^(m: MX ): XMX = bind M (m, ret^ x) 

A simple calculation shows that equations 4-6 hold for XM and equations 7-8 
hold for lift^. whenever equations 4-6 hold for M. □ 

3 Operations and lifting 

We seek a general technique for lifting operations associated to a monad M to 
another monad N. In this section we make precise what kind of operations our 
technique will be able to handle, and what lifting means. 

Definition 12 (A-operation). If E is a functor and M is a monad, then a 
AT-operation for M is a natural transformation op in Nat(A7 o M, M). 

Example 13. The standard operations for the state monad are 
get (k: S->-SX) : SX = Xs.kss 
set (s : S,m : SX) : SX = A_. m s. 

The operation get applies the current state to its argument, and set sets runs 
a stateful computation in the provided state. They are A-operations for the 
following functors 

T get X = S^X map s *‘\f:X -► Y,t : Z get X ): E* et Y = As. / (t s) 

A7 set X = S x X map^"(/: A -f Y, (s, x ): r set AT): Z set Y = (s, / x). 

In Fig. 1, we show some T-operations (all the monads and T-operations are 
presented along the paper, except for the list monad and its operations for which 
the reader may consult [19]). Interestingly, all the operations considered in [10] 
for these monads are definable in terms of A-operations. For example, we can 
use the .^-operations in Example 13 to define the more usual operations 

get: S S = get s (ret|) = As. (s, s) 
set: S—»S 1 = As.seti(s, retf (•)) = As s'. (•, s) 

where • is the sole inhabitant of the unit type 1. In the same manner, we can 
define 


ask : RE = ask B (ret|) = Ae.e 





Monad 

Signature 

X-operations 

List 

LX = [X] 

x em ptyx= l 

X append X= X x X 

empty x : l^LX 
append x : LX x LX^LX 

Output 

OX = X x [A] 

<ii <ii 
* * 

output x : [A] x OX—>OX 
flush x : OX^OX 

State 

SX = S'—>X x S 

X get X=5->X 

X set X= S x X 

get x : (S-> SX)^SX 
setx: S x SX^SX 

Environment 

RX - £-»X 

X ask X=E->X 
X local X= (B-.£)xX 

ask x : (E—>RX)—>RX 
localx: (E-»E) x RX —>RX 

Exception 

XX = Z + X 

1! 
* * 

* •- 

i 

* 

throw x : 1—>XX 
handlex: XX x (Z^XX)^XX 

Continuation 

CX = (X^R)^R 

X abort X= R 

X callcc X= (X —> i?) —> X 

abortx: R— >CX 

callccx : ((CX —> E) —> CX) —»CX 


Fig. 1 . ^-operations for the standard monads. 


for the environment monad, and 

output : [.A] —■» 01 = A w. output 1 (u>, ret°(*)) = Xw. (•, to) 

for the output monad. The usual call-with-current-continuation callcc and the 
^-operation callcc are defined as: 

cajjcc CY) —>CX): CX = Xk.f(Xx -kx)k 
callcc (/: (CX-► R) CX ): CX = A k. f (Am. mk)k 

The operation callcc can be defined from callcc as: 

callcc f = callcc (A k. f (Ax k (ret c x))) (9) 

Definition 14 (Lifting). Let op be a X -operation for M and £ be a monad 
morphism from M to N. A lifting of op to N along £ is a E-operation op N for 
N such that for all X:*, 

ixop x = op%-(mapff X ,Nxtx) (10) 

or equivalently, such that the following diagram commutes: 


E(NXi r- — II — *«&x 



E(M^4 -g|-SgjjfX 


This definition can be specialised to the case of a monad transformer T by taking 
N =TM and £ = liftj^. In this case we call op N a lifting of op through T. 

In the absence of a general technique, the only way to lift an operation is 
to do it in an ad-hoc manner, for each monad transformer [10]. Although this 
works, the approach has significant shortcomings: 





— The number of liftings grows like the product of the number of operations 
and monad transformers. This is clearly non-modular: adding a new monad 
transformer with some operations involves showing how to lift every existing 
operation through the new monad transformer, and showing how to lift the 
new operations through every existing monad transformer. 

— Without a uniform definition of lifting, one could have different ad-hoc lift¬ 
ings of the same operation through a monad transformer, and no clear criteria 
to choose among them. 

— There is no division of concerns: defining a lifting involves understanding the 
intended semantics of both the transformer and the operation. 

We show that for well-behaved T-operations, called algebraic, there is a unique 
way to lift them among a monad morphism. Moreover, for all T-operations (not 
necessarily algebraic) there is a uniform way to lift them through a wide class 
of monad transformers, called functorial monad transformers. 


4 Unique Lifting of Algebraic Operations 

We characterize operations that interact well with bind. 

Definition 15 (Algebraic A7-operation) . A £-operation op for M is alge¬ 
braic provided that for every f: A—> MB and t: £{MA) 

bind^ B (op A f,/) = op B (mapf^ )MB (Arn:MA bind^ B (m,/)) t) (11) 

or equivalently, that the following diagram commutes: 

£{MA) -—-» MA 

m,p»bind“(-jrj) 

ViMB) -—-. MB 

Remark 16. The notion of algebraic operation given in [17] corresponds to alge¬ 
braic 17-operations for functors E of the form EX = A x (B —> X). 

As examples of algebraic A7-operations we have all the operations in Fig.l, 
except for flush, local and handle, for which equation 11 does not hold. Remark¬ 
ably, callcc is an algebraic T-operation despite not being algebraic in the sense 
of [17] and hence, not tractable in that approach. With our generalization, callcc 
is not only tractable, but also well-behaved. 

The following proposition presents a bijection between algebraic operations 
and natural transformations of a particular type. It provides an alternative way 
of verifying that an operation is algebraic and it will play a crucial role in showing 
how to lift algebraic operations. 



Proposition 17. There is a bijection between algebraic E-operations for M and 
natural transformations from E to M given by: 

<Kop: 2 ■ M A M): (E A M) = AX: *. op* • (map£ )M *ret^) 

V>( op': SAM): X-M AM = TX:*. join^ • op' M * 

where join* = A m:M(MX). bind^ )X (m, id M x):M(MX)^MX is the mul¬ 
tiplication of M. We call op' i/ie natural transformation corresponding to the 
algebraic E-operation op. 

Remark 18. When EX = A x (B —> X) there is a further bijection between 
algebraic X-operations op for M and maps op": A —> MB, namely 

op "{a: A) = op B (a,ret^). 

Theorem 19 (Algebraic Lifting). Given an algebraic E-operation op for M 
and a monad morphism £ from M to N, define the term op N : E ■ N A N as 

°Px = j°i n X ' £nX ' Op NX ' i m ^PNX,M(NX) ret jvx) 

op^ is an algebraic E-operation for N and a lifting of op along £. Moreover, 
op N is the unique lifting of op which is algebraic. 

Proof. The operation op ,v is a lifting since the following diagram commutes: 



By Prop. 17, op N is algebraic and, by the same proposition, it must be the 
unique lifting of op which is algebraic. □ 

For example, when N = AS and £ = lift?, thus NX = S —* ((Z + X) x S), 
then the algebraic lifting of the algebraic X-operation get yields the operation 

get£ (jfc: S -► ASX): ASX = Xs.kss. 

Since callcc is an algebraic X-operation, we can apply the algebraic lifting and 
obtain for every monad morphism £ from C to N a lifted algebraic operation 



called: VX: *. ((NX -► R) -> NX) -> NX. For example, for N = SC and 
£ = lift 5 , thus NX = S —* ((X x S) —> i?) —» R, then the operation simplifies 
to: 


callcc 5 (/: (SCX R) SCX): SCX = Xs k.f(Xm.m(s,k))sk. 

We can define a lifted version of callcc in terms of callcc 5 in the same manner 
as equation 9 and obtain: 

callcc 5 (/: (X^SCT) ^<SCX): SCX = A sk.f (Xx s' k (x, s)) s k. 

The author has used the uniform lifting of callcc to verify the ad-hoc liftings 
of callcc in Haskell’s monad transformer library (mtl). This verification revealed 
that the uniform lifting above coincided with all of the library’s liftings, except 
for one: the library’s lifting of callcc through the state monad transformer is not 
consistent with the rest of the liftings. 2 The ad-hoc lifting of callcc in mtl is: 

callcc—mtl 5 (/: (X^SCF) ^<SCX): SCX = A sk.f (Xx s' . k (x, s')) s k. 

The difference is that the ad-hoc lifted operation preserves changes in the 
state produced during the construction of the new continuation even when the 
current continuation is used. However, all the other liftings of callcc in the library 
do not preserve produced effects when using the current continuation. 


5 Lifting of Operations 

We now show how to lift X-operations. To achieve this, we need to refine the 
definition of monad transformer. All the standard monad transformers fit into 
this refined definition, except the monad transformer for continuations. 

Definition 20 (Functorial Monad Transformer). The set FMT of func- 
torial monad transformers consists of tuples T = (T, ret T , bind T , lift T , hmap T ), 
where the first four components give a monad transformer (see Def. 9), and 

hmap t :VM,N: * -* *. Map (M) Map(X) -► (AT A N) -► (TM A TN) 

is a term such that for all monads M, N and P, 

— hmap T preserves natural transformations and monad morphisms, i.e. 

• r:Nat(M,X) implies hmap^ ^ r: Nat(TM, TN) 

• £ : MM(M, N) implies hmap^ ^ f: MM(TM, TN) 

— hmap T respects identities and composition of natural transformations, i.e. 

• hmap^-^M = ltm 

2 In another monad transformer library by Iavor S. Diatchki, called MonadLib, all the 
liftings correspond to the uniform lifting obtained above. 



:Nat (M,N) and a: Nat(lV, P) imply 


( hma P^,p (T ) ° ( hma P^,Jv T ) = hma P T m,p{° ° T ) 


— lift T is natural, i.e. 

r:Nat(M,/V) implies (hmap^ $ t) x • lift^ ^ = lift^ x • t x (12) 
where hmap^ = hmapM,iv(map M , map^). 

Example 21. The monad transformer S becomes functorial with hmap 5 given 
by 

hmap|, >( j(r: F A G)(X: *)(t:SFX): SGX = As: S'. r{ts) 

Some tedious calculations show that it satisfies all the required properties. □ 

Example 22. The monad transformer X becomes functorial with hmap* given 
by 


hmapf 6 (t: F A G)(X: *)(t:XFX ): XGX = r(t) 


□ 

In order to lift T-operations we will exploit impredicative polymorphism of 
system Flo to define a monad transformer K (which is not functorial) such that 
every .^-operation op for M induces an algebraic ^-operation op K for /CM, and 
op can be recovered from op*“ by pre- and post-composition of op K with two nat¬ 
ural transformations. The unique algebraic lifting allows to lift op K through any 
monad transformer T, and obtain an algebraic T-operation op /c,T for T(KM). 
Finally, when T is functorial, one recovers from op K ' T a lifting of op through T, 
in the same way as one recovers op from op K . 

Definition 23 (Codensity). K is the monad transformer (/C, ret*“, bind^, lift*") 
such that for every monad M 

KMX = VT: *. (X -► MY) -f MY 
ret£ x {x:X):KMX = AY: *.Xk: X^MY. kx 
binder x y (c: KMX, f:X—>KMY ): KMY = 

AZ:*. \k:Y—>MZ. c z (Ax:X. (fx) z k ) 

1 ift^ (m: MX ): KMX = AY: *.Ak:X—>MY. bind % >Y (m,k) 

Remark 2f. The monad transformer K is related to the construction of the con- 
density monad for an endofunctor (see [12]). In what follows, we use only some 
properties of K, which are provable by simple calculations in system Flo. Thus, 
we do not exploit in full the universal property of the codensity monad. 



Definition 25. Let M be a monad. Then, we define the terms 
k{t: E ■ M A M): E A KM = AX:*. A s:EX. 

AY:*. \k: X —> MY. T Y {map s ks ) 
from^ :JCM A M = AX:*. Ac: KMX. c x (ret£) 

and for every E-operation op for M we define 

op K : E ■ KM A KM = i/)(k op) 
where if is defined in Prop. 11. 

Proposition 26. Given a monad M and a E-operation op for M, then 

а) from^ is a natural transformation from KM to M such that 

l m = fromjjr o lift^ 

б) op*“ is an algebraic E-operation for KM such that 

op = from^ o op K o (E lift^) (13) 

where i and o are the identity and composition of natural transformations, and 
E is the application of a functor to a natural transformation (see Definition 3). 

Theorem 27 (Lifting). Given a E-operation op for a monad M and a func- 
torial monad transformer T, let op T : E ■ (TM) -^>TM be the term 

op T = (hmapje^from*) ° op K ’ T o (£(hmap^ ^lift^)) (14) 

where op K,T is the algebraic lifting of op K through T, then op T is a lifting of op 
through T. 

Proof. The following diagram commutes: 


E(TMX) -—-4 TMX 




When op is an algebraic ^-operation for M, there is a simpler way to lift op 
through T. The following result says that when both liftings are defined, they 
yield the same result. 

Proposition 28. If op is an algebraic E-operation for M and T a functorial 
monad transformer, then the algebraic lifting of op along lift^ given by Theo¬ 
rem 19 coincides with the lifting of op T given by Theorem 27. 

Example 29. We specialize the lifting in Theorem 27 to several concrete functo¬ 
rial monad transformers and an arbitrary X-operation op for a monad M. 

— When T = S, thus SMX = S —> M(X x S), the lifting simplifies to: 

opf- ( t: E(SMX)) : SMX = As. op XxS (map i: r s t) 

where r s (f:S —>■ M(XxS)) = f s. 

— When T = X, thus XMX = M(Z + X), the lifting simplifies to: 

op£(f: E(XMX)) : XMX = op z+x t. 

— When T is TZ, the functorial monad transformer for environments of type 
E [10], thus 7 ZMX = E —> MX, the lifting simplifies to: 

op5 (t: Z{HMX)) : 1ZMX = \e. op x (map l: r e t) 

where r e (f:E —> MX) = f e. 

— When T is O, the functorial monad transformer for output of type [A] [10], 
thus OMX = M(X x [A]), and the lifting simplifies to: 

op£(t: E(OMX)) : OMX = op Xx[A] t. 

□ 

The example above shows that Theorem 27 subsumes the incremental ap¬ 
proach in [15,3]. In the following, we apply the lifting theorem to the remaining 
non-algebraic operations local, handle, and flush. Because of Proposition 28, for 
algebraic operations it makes more sense to use the simpler algebraic lifting. 

Example 30. The monad for environments of type E and its operations for read¬ 
ing the environment and performing a computation in a modified environment 
are shown below. 


R (X:*) = E^X 
ret R (x: X): RX = X_.x 
bind R (m: RX, /: X—► RT): RY = \e.f(me) e 
ask (/:£—► RX): RX = Ae. / e e 
local (f:E—>E,m: RX): RX = Ae.m(/e) 



Applying Theorem 27 to the non-algebraic, A-operation local we obtain the 
following lifted operation for any functorial monad transformer T: 

local T (f:E->E,t:TRX):TRX = hmap£ ftft from ft (local 
where t' \T1CRX = hmapj^^ lift^ t 

local^’ 7, (/: E^E,t : TXRX ): TICRX = join£ ft (lift| t (AY. Xk. local (f,kt))) 

- When T = S, thus <SRA = S —> E —> (X x S), the lifting simplifies to: 

local 5 (f:E—>E,t:SRX):SRX = \s e.t s (f e). 

- When T = X, thus XRX = E —> (Z + X), the lifting simplifies to: 

local* (/: E—>E,t: XRX): XRX = Xe. t(fe). 

- When T =TZ, thus 1ZRX = E —> E —> X, the lifting simplifies to: 

\oca\ n (f:E^E,t:HRX) : TZRX = Xe e’.te (f e') 

- When T — 0, thus OMX = E —> (X x [A]), the lifting simplifies to: 

local 0 :(/ :E—>E,t: ORX ): ORX = Xe. t (f e ) 

□ 

Note that we can arrive at the concrete liftings above—where both T and op 
are fixed—by either Example 29 (where we first fix T) or the definition of local T 
above (where we first fix op), but only by fixing the monad transformer we get 
a significant simplification of the lifting. 

Example 31. The monad for exceptions of type Z and its operations for throwing 
and handling exceptions are shown below. 

X(X:*) = Z + X 
ret x (a;: W): XX= inr a; 

bind x (m:XX,/:X—>XF): XY = case m of | ini z => ini z | inr x =>■ fx 
throw (z: Z): XX = ini * 

handle (to: X X, h: Z^>XX): XX = case to of | ini z =>• h z | inr x => inr x 
We obtain the following liftings for the non-algebraic 17-operation handle. 

- When T=S, thus SXX = S —> Z + (XxS), the lifting is: 

handle 5 (t: SXX, h: Z^SXX ): SXX = As. case t s of | ini z^hzs 

| inrar =>■ inra: 



- When T = X, thus XXX = Z+(Z + X), the lifting is: 

handle* (t: XXX, h : Z^XXX): XXX = case t of | ini z=>hz 

| inrx => inrx. 


- When f = ti, thus 7 ZXX = E -► (Z + X), the lifting is: 

handle 7 ^ (t: 1ZXX, h: Z ^TZXX): 1ZXX = Ae. case f e of | in \z=>hze 

| inrx => inra; 


- When T = 6, thus OXX = Z+(X x[A\), the lifting is: 

handle 0 {t : OXX, hZ ^ OXX): OXX = case t of | ini z=>hz 

| inrx => inra;. 

□ 

Example 32. The monad for output of a type [d] and its operations for out- 
putting a list, and flushing the output are shown below. 

0(X:*) = Xx[d] 
ret 0 (x:X): OX = )x, empty)*)) 
bind°(m: OX, /: X—>OY) : OX = let (x,w)=m in 

let = f x in (x',append(w>iti'§| 

output ( (w, m) : W x OX): OX = let (a:, w') = m in (a?, append(w/, w)) 
flush (m: OX): OX = let (x, _) = m in (x, empty)*)) 

where empty)*) is the empty list, and append appends two lists. We obtain the 
following liftings for the non-algebraic X-operation flush. 

- When T = S, thus SOX = S -► ((X x S) x [d]), the lifting is: 

flush 5 ( t: SOX ): SOX = As. let (x, _) = t s in (x, empty)*)) 

- When f = X, thus XOX = (Z + X) x [A], the lifting is: 

flush* )(c, w) : XOX,h: Z^X OX): XOX = (c, empty)*)) 

- When T = n, thus 7LOX = £^(Xx[4]), the lifting is: 

flush TC (t:TlOX): 1ZOX = Ae. let (x, _) = t e in (x, empty)*)) 

- When T = C, thus COX = (X x [A]) x [A], the lifting is: 

flush 0 )(p, w ): OOX,h: Z^OOX) : COX = (p, empty)*)) 

□ 



6 Conclusion 


Monad transformers allow programmers to modularly construct a monad, but 
for their potential to be fully realized, the lifting of operations should also be 
modular. We have defined a uniform lifting through any monad transformer 
with a functorial behaviour. This lifting is applicable to a wide class of operations 
which includes all operations considered in [10] and all the operations in Haskell’s 
mtl, except for listen. Through several examples, we have given evidence that our 
uniform lifting subsumes the more or less ad-hoc definitions of lifting that could 
be found in the literature. 

Our initial focus on algebraic operations is inspired by Plotkin et al. [7], 
where a monad is constructed from an algebraic theory presented by algebraic 
operations and equations, and combined monads are obtained by combination 
of theories. This approach is appealing, but it can cope only with monads cor¬ 
responding to algebraic theories and with algebraic operations. 

The current design of monad transformer libraries is based on the traditional 
approach to operation lifting which has other problems besides non-modularity. 
The experimental library Monatron [8] implements a new design which not only 
lifts operations uniformly, but also avoids many of these problems. 

There are several possible directions for further research: 

— The lifting of 27-operations assumes functorial monad transformers. In order 
to accomodate the continuation monad transformer, we plan to extend the 
results in the article to mixed-variant functorial monad transformers. 

— Instead of assuming an operation 27 ■ M A M, we can consider operations 
ffM A M, where H is a functor in an endofunctor category. This allows 
us to model the mtl operation listen and obtain a lifting for it. However, 
in general, obtaining a lifting seems to depend on the operation inducing 
an algebraic 27-operation for another monad. General techniques for finding 
such a lifting need to be investigated. 

— Given a 17-operation for M, we can obtain its lifting through any functo¬ 
rial monad transformer. However, its general formulation is rather involved, 
and we would like to obtain a simpler lifting (perhaps under certain extra 
assumptions, as in Proposition 28). 

Since the traditional non-modular solution for lifting operations through 
monad transformers was introduced, there has been little progress in this area. 
We hope that the new approach developed in this article leads to new and ex¬ 
citing ways of designing structured effectful functional programs. 
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